home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / doc / examples / scrollbar.tcl < prev    next >
Encoding:
Text File  |  1995-06-29  |  608 b   |  31 lines
  1. #! moat
  2.  
  3. xtAppInitialize
  4. xmBulletinBoard .top managed
  5.  
  6. xmScrollBar .top.h managed \
  7.     -orientation horizontal -width 250 \
  8.     -y 260 -minimum 10 -maximum 240
  9.  
  10. xmScrollBar .top.v managed \
  11.     -orientation vertical -height 250 \
  12.     -x 260 -minimum 10 -maximum 240
  13.  
  14. xmPushButton .top.target managed \
  15.     -labelString "X"
  16.  
  17. proc track_it {} {
  18.     .top.h getValues -value x
  19.     .top.v getValues -value y
  20.     .top.target setValues -x [expr 8+$x] -y [expr 8+$y]
  21. }
  22. .top.h dragCallback track_it
  23. .top.v dragCallback track_it
  24. .top.h valueChangedCallback track_it
  25. .top.v valueChangedCallback track_it
  26.  
  27. track_it
  28.  
  29. . realizeWidget
  30. . mainLoop
  31.